Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie] Funkcja stop

Michu.

Przez Michu.
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Michu. Znawca

Michu.

Opublikowano
Znawca

Michu.

Opublikowano

Tutaj jest mój programik:

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("{HOME}", "start")
HotKeySet("{END}", "stop")
GUICreate("Margobot v0.3b", 200, 100)
$btn1 = GUICtrlCreateButton("START", 10, 10, 80, 80)
$btn2 = GUICtrlCreateButton("PAUZA", 100, 10, 80, 80)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $btn1
start()
Case $gui_event_close
exit
Case $btn2
MsgBox(0, "Margobot", "Margobot")
Sleep(1000)
MsgBox(16, "Goodbye World!", "Goodbye World!")
Case $gui_event_close
Exit
EndSwitch
wend
func start()
while 1
Send("{b}")
Sleep(1000)
wend
endfunc
func stop()
exit
endfunc

 

 

 

Jak ustawić aby przycisk PAUZA zatrzymywał skrypt?

Możecie napisać, możecie wkleić zmodyfikowany skrypt.

 

A, i jak ustawić żeby w tym okienku w którym są te 2 przyciski był napis: Wciśnij START aby rozpocząć pracę bota ???

Jeśli tak sie nie da to da się tak żeby przycisk stop działał jak END, czyli wyłączał cały program?

Proszę o odp

comment_aKm2b5jSiJgvkhmrlSzZ5Yc80OK7Mzta

Vertek Pomocnik

Vertek

Opublikowano
Pomocnik

Vertek

Opublikowano 
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("{END}", "exit1")
$Form = GUICreate("Margobot v0.3b", 201, 118, 192, 125)
$btn1 = GUICtrlCreateButton("START", 10, 10, 80, 80)
$btn2 = GUICtrlCreateButton("PAUZA", 100, 10, 80, 80)
$Label1 = GUICtrlCreateLabel("Status", 8, 96, 34, 17)
$Label2 = GUICtrlCreateLabel("OFF", 48, 96, 24, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
		Exit
	 Case $btn1
		start()
	 Case $btn2
		stop()
EndSwitch
WEnd

Func start()
  AdlibRegister("tak",300)
EndFunc

Func stop()
  GUICtrlSetData($Label2,"OFF")
  AdlibUnRegister("tak")
Endfunc

Func tak()
  GUICtrlSetData($Label2,"ON")
EndFunc

func exit1()
  Exit
EndFunc

Jedyny działający bot do Gladiatusa 2015!!!

https://www.facebook.com/Gbot.vertek

Michu. Znawca

Michu.

Opublikowano
Znawca

Michu.

  • Autor
Opublikowano

@up niestety nie działa :(

 

Z widoku miodzio ale po naciśnięciu start nic się nie dzieje

 

 

Tutaj jest kod od Verteka [kod jest super ^^]

 

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("{END}", "exit1")
$Form = GUICreate("Margobot v0.3b", 201, 118, 192, 125)
$btn1 = GUICtrlCreateButton("START", 10, 10, 80, 80)
$btn2 = GUICtrlCreateButton("PAUZA", 100, 10, 80, 80)
$Label1 = GUICtrlCreateLabel("Status", 8, 96, 34, 17)
$Label2 = GUICtrlCreateLabel("OFF", 48, 96, 24, 17)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
					Exit
			 Case $btn1
					start()
			 Case $btn2
					stop()
	EndSwitch
WEnd

Func start()

  AdlibRegister("tak",300)
EndFunc

Func stop()
  GUICtrlSetData($Label2,"OFF")
  AdlibUnRegister("tak")
Endfunc

Func tak()
  GUICtrlSetData($Label2,"ON")
EndFunc

func exit1()
  Exit
EndFunc

 

 

 

Po naciśnięciu start nic się nie dzieje. Co prawda jest napis Status On co jest super udogodnieniem ale nic się nie dzieje. Ja chciałbym żeby start zaczynało klikanie b co 2000 milisekund a pauza zatrzymywało

comment_aKm2b5jSiJgvkhmrlSzZ5Yc80OK7Mzta

Michu. Znawca

Michu.

Opublikowano
Znawca

Michu.

  • Autor
Opublikowano

Chcę żeby po naciśnięciu start program klikał co 2 sekundy guzik B. A po naciśnięciu pauza żeby zatrzymywał wciskanie. Zrób to a obrzucę cię różami ^^

comment_aKm2b5jSiJgvkhmrlSzZ5Yc80OK7Mzta

Vertek Pomocnik

Vertek

Opublikowano
Pomocnik

Vertek

Opublikowano

Sprawdź czy działa

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("{END}", "exit1")
$Form = GUICreate("Margobot v0.3b", 201, 118, 192, 125)
$btn1 = GUICtrlCreateButton("START", 10, 10, 80, 80)
$btn2 = GUICtrlCreateButton("PAUZA", 100, 10, 80, 80)
$Label1 = GUICtrlCreateLabel("Status", 8, 96, 34, 17)
$Label2 = GUICtrlCreateLabel("OFF", 48, 96, 24, 17)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $GUI_EVENT_CLOSE
					Exit
			 Case $btn1
					start()
			 Case $btn2
					stop()
	EndSwitch
WEnd

Func start()
  AdlibRegister("tak",2000)
EndFunc

Func stop()
  GUICtrlSetData($Label2,"OFF")
  AdlibUnRegister("tak")
Endfunc

Func tak()
  GUICtrlSetData($Label2,"ON")
  Send("{b}")
EndFunc

func exit1()
  Exit
EndFunc

Jedyny działający bot do Gladiatusa 2015!!!

https://www.facebook.com/Gbot.vertek

Michu. Znawca

Michu.

Opublikowano
Znawca

Michu.

  • Autor
Opublikowano

Działa genialnie jesteś super. dam ci zaraz full plusów. Potrzebuję tego bo piszę bota do gry.

 

http://www.mpcforum....e-zmian-koloru/

 

Chcę teraz napisać programik pomocniczy.

 

Tutaj to co już mam:

 

 

HotKeySet("{F11}", "_getDefault")

$x = 1040
$y = 166
$color = 0
$newColor = 0
$status = "off"

While 1
	If $status = "on" Then
			If _getCurrentColor($x, $y) <> $color Then
					Send("1")	; TU WSTAWIAMY CO MA ROBIĆ
			EndIf
	EndIf
WEnd

Func _getDefault()
	$coord = MouseGetPos()
	$x = $coord[0]
	$y = $coord[1]
	$color = Hex(PixelGetColor( $coord[0], $coord[1]), 6)
	$status = "on"
EndFunc

Func _getCurrentColor($xDef, $yDef)
	$newColor = Hex(PixelGetColor( $xDef, $yDef), 6)
	Return ($newColor)
EndFunc

 

 

 

 

Wpisałem już koordynaty ale nie wiem jak mam pobrać kolory??

comment_aKm2b5jSiJgvkhmrlSzZ5Yc80OK7Mzta

Vertek Pomocnik

Vertek

Opublikowano
Pomocnik

Vertek

Opublikowano

Kolory możesz pobrać w programie AutoIt Window info, bierzesz ten celownik który jest w "Finder Tool", namierzasz na tą rzecz. Wyszukujesz w tych zakładach summary, i zjedzasz na dó, będzie tam >>>> Mouse <<<< i wszystko co jej dotyczy

Jedyny działający bot do Gladiatusa 2015!!!

https://www.facebook.com/Gbot.vertek

Michu. Znawca

Michu.

Opublikowano
Znawca

Michu.

  • Autor
Opublikowano

Do Vertka i innych programistów:

 

Tu kod programu Vertka klikający w oknie pierwszoplanowym:

 

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("{END}", "exit1")
$Form = GUICreate("Margobot v0.3b ", 215, 120, 150, 100)
$btn1 = GUICtrlCreateButton("START", 10, 10, 80, 80)
$btn2 = GUICtrlCreateButton("PAUZA", 100, 10, 80, 80)
$Label1 = GUICtrlCreateLabel("Status", 8, 96, 34, 17)
$Label2 = GUICtrlCreateLabel("OFF", 48, 96, 24, 17)
GUISetState(@SW_SHOW)

While 1
			$nMsg = GUIGetMsg()
			Switch $nMsg
			Case $GUI_EVENT_CLOSE
											Exit
							 Case $btn1
											start()
							 Case $btn2
											stop()
			EndSwitch
WEnd

Func start()
  AdlibRegister("tak",2000)
EndFunc

Func stop()
  GUICtrlSetData($Label2,"OFF")
  AdlibUnRegister("tak")
Endfunc

Func tak()
  GUICtrlSetData($Label2,"ON")
  Send("{b}")
EndFunc

func exit1()
  Exit
EndFunc

 

 

 

A tutaj kod którego dotychczas używałem:

 

 

AdlibRegister("a", 2000);w miejscu 1000  mozesz podac czas co ile ma klikac pierwszy guzik
AdlibRegister("d", 2000);a w miejscu 2000 czas klikania 2 guzika

While 1
	sleep(1000)
	Switch GUIGetMsg()
			Case -3
					Exit
	EndSwitch
WEnd



Func a()
	ControlSend("[CLASS:MozillaWindowClass]", "", "", "b"); "Notepad"-nazwa okna,"Edit1"-controlid, "b"-klawisz:)
EndFunc
Func d()
	ControlSend("[CLASS:MozillaWindowClass]", "", "Edit1", "b")
EndFunc

 

 

 

Pierwszy kod jest super, ponieważ ma GUI, przyciski, funkcje start i stop itp ale drugi kod ma to do siebie że klika tylko w firefoxa. połączy ktos kody i zrobi żeby ten pierwszy program klikał w firefoxa?

comment_aKm2b5jSiJgvkhmrlSzZ5Yc80OK7Mzta

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

podstaw controlsendy z drugiego skrypty pod sendy z pierwszego.

mam nadzieje, że nie jest to zbyt zagmatwane.

981841412442977292370.png
Vertek Pomocnik

Vertek

Opublikowano
Pomocnik

Vertek

Opublikowano

Jesli tylko podmienić to proszę ale wątpie, że to zadziała, lecz spróbuj. Podstaw sobie albo pierwszy albo drugi, ten niepotrzebny controlsend usuń

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("{END}", "exit1")
$Form = GUICreate("Margobot v0.3b ", 215, 120, 150, 100)
$btn1 = GUICtrlCreateButton("START", 10, 10, 80, 80)
$btn2 = GUICtrlCreateButton("PAUZA", 100, 10, 80, 80)
$Label1 = GUICtrlCreateLabel("Status", 8, 96, 34, 17)
$Label2 = GUICtrlCreateLabel("OFF", 48, 96, 24, 17)
GUISetState(@SW_SHOW)

While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
  Case $GUI_EVENT_CLOSE
     Exit
     Case $btn1
	 start()
  Case $btn2
	 stop()
  EndSwitch
WEnd

Func start()
  AdlibRegister("tak",2000)
EndFunc

Func stop()
  GUICtrlSetData($Label2,"OFF")
  AdlibUnRegister("tak")
Endfunc

Func tak()
  GUICtrlSetData($Label2,"ON")
  ;Send("{b}")
  ControlSend("[CLASS:MozillaWindowClass]", "", "", "b")
  ;ControlSend("[CLASS:MozillaWindowClass]", "", "Edit1", "b")
EndFunc

func exit1()
  Exit
EndFunc

Jedyny działający bot do Gladiatusa 2015!!!

https://www.facebook.com/Gbot.vertek

Michu. Znawca

Michu.

Opublikowano
Znawca

Michu.

  • Autor
Opublikowano

up

Nie wiem jak ty to robisz, ale wiedz że robisz cuda ^^

Jesteś normalnie moim Miszczem.

Działa wszystko jest super

comment_aKm2b5jSiJgvkhmrlSzZ5Yc80OK7Mzta

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...